use "$path\datasets\rd_dataset.dta", clear
keep if in_rdd_sample==1
bysort gkz legislative_period partei: keep if _n==1
preserve
bysort listenergebnis_winner: egen count_le=count(gkz)
bysort listenergebnis_winner: keep if _n==1

graph bar count_le, over(listenergebnis_winner, label(angle(45) labsize(small)))  ytitle(Count )  blabel(total,format(%9.0f)) legend(label (1 "Final list rank")  ) bargap(1) bar(1 ,color(navy))

graph export FigureA11/figureA11.pdf, replace
restore

